home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 March / 1994-03b.d64 / ghoul dogs (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  518b  |  16 lines
  1. 50 print"[147]"
  2. 100 if sw=1 then sys 49152: clr: end
  3. 110 print "plug joystick into port 2"
  4. 120 print "  c[146]olour   m[146]onochrome"
  5. 130 get a$
  6. 140 if a$<>"c" and a$<>"m" goto 130
  7. 150 sw=1: print "[145]  ";
  8. 160 if a$<>"c" goto 190
  9. 170 print "colour"
  10. 180 load "gd/colour.m",8,1
  11. 190 print tab(11) "monochrome"
  12. 200 load "gd/monochrome.m",8,1
  13. 210 :
  14. 220 both of these finished programs
  15. 230 (NULL) from $c000 to $ca84 inclusive
  16.